﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%

	dim urls,bit,bi,namer,monery,monery1,sql,rs
        urls=Request.QueryString("urls")
        if urls="" then urls="index.asp"

		if sid<>"Null" then
                namer=session("username")
                Set Rs = Server.CreateObject("Adodb.Recordset")
		Sql = "select [money],[money1] from [qingtian_user] where [name]='"&namer&"'"
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then                
                monery=rs("money")
                monery1=rs("money1")
                end if
                Rs.close
                set rs=nothing
bit=qingtian.bit
bi=qingtian.bi
select case v
case "0"
we0="<br/>"
hr="-------------------<br/>"
%>
<card title="我的财富"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title>我的财富</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select
        qingtian.info
%>		
<%=qingtian.qingsav("345")%>
<%=dao%>==我的财富==<%=we0%><%=we%>
你现在的<%=bit%>:<%=zi%><%=monery1%><%=zi0%><br/>
<a href="chongzhi.asp?sid=<%=sidd%>">获得<%=bit%></a>.<a href="pinbit.asp?sid=<%=sidd%>"><%=bit%>管理</a><br/>
<%=bit%>只能通过充值获得,通过<%=bit%>商城能够购买<%=bi%>等实用的商品<br/>
你现在的<%=bi%>:<%=zi%><%=monery%><%=zi0%><br/>
<a href="chongzhi.asp?sid=<%=sidd%>">获得<%=bi%></a>.<a href="pinbi.asp?sid=<%=sidd%>"><%=bi%>管理</a><br/>
<%=bi%>能通过充值和游戏获得,通过<%=bi%>商城能够购买各种道具和礼物<br/>
<%=hr%><a href="fans.asp?sid=<%=sidd%>">查看朋友的财富</a><%=we0%><%=hr%>
<%=qingtian.qingsav("346")%><%=sou%><a href="chuwu.asp?sid=<%=sidd%>">我的物品</a>|<a href="shangchen.asp?sid=<%=sidd%>">商场</a>|<a href="index.asp?sid=<%=sidd%>">地盘</a><%=we0%>                                      
<%

else
Response.Redirect "login.asp?v=" & v & "&fv=" & fv & "&url=mymeili.asp?sid="&sidd&"@@urls="&urls

end if

end Function
%>
